home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / sauter.zip / C-CMTI.MF < prev    next >
Text File  |  1990-09-16  |  4KB  |  93 lines

  1. % Compute the font construction parameters for the Computer
  2. % Modern Text Italic family.  This is computed as a modification
  3. % of Computer Modern Roman.
  4.  
  5. input c-cmr;
  6.  
  7. u#:=               % unit width
  8.     (if design_size < 10: ((design_size*design_size*1) -
  9.                            (design_size*5) + 134)
  10.                     else: ((design_size*16)+24)fi)/360pt#;
  11.  
  12. letter_fit#:=      % extra space added to all sidebars
  13.     (if design_size <  8: (-(design_size*15)+199)
  14.  elseif design_size <  9: ((design_size*06)+31)
  15.  elseif design_size < 10: ((design_size*7)+22)
  16.                     else: ((design_size*8)+12)fi)/360pt#;
  17.  
  18. crisp#:=           % diameter of serif corners
  19.     (if design_size <  7: ((design_size*5)+35)
  20.  elseif design_size <  8: (design_size*10)
  21.                     else: (80)fi)/360pt#;
  22.  
  23. hair#:=            % lowercase hairline breadth
  24.     (if design_size <  8: ((design_size*5)+70)
  25.  elseif design_size < 10: (110)
  26.                     else: ((design_size*5)+60)fi)/360pt#;
  27.  
  28. stem#:=            % lowercase stem breadth
  29.     (if design_size <  8: ((design_size*15)+80)
  30.  elseif design_size <  9: ((design_size*20)+40)
  31.  elseif design_size < 10: ((design_size*10)+130)
  32.                     else: ((design_size*15)+80)fi)/360pt#;
  33.  
  34. curve#:=           % lowercase curve breadth
  35.     (if design_size <  8: ((design_size*20)+75)
  36.  elseif design_size <  9: ((design_size*25)+35)
  37.  elseif design_size < 10: ((design_size*20)+80)
  38.                     else: ((design_size*15)+130)fi)/360pt#;
  39.  
  40. ess#:=             % breadth in middle of lowercase s
  41.     (if design_size <  7: (-(design_size*design_size*5) +
  42.                            (design_size*105)-280)
  43.  elseif design_size < 10: ((design_size*20)+70)
  44.                     else: ((design_size*10)+170)fi)/360pt#;
  45.  
  46. flare#:=           % diameter of bulbs or breadth of terminals
  47.     (if design_size <  8: (design_size*30)
  48.  elseif design_size <  9: ((design_size*20)+80)
  49.  elseif design_size < 10: ((design_size*30)-10)
  50.                     else: ((design_size*15)+140)fi)/360pt#;
  51.  
  52. cap_hair#:=        % uppercase hairline breadth
  53.     (if design_size <  7: ((design_size*5)+70)
  54.  elseif design_size < 10: (110)
  55.                     else: ((design_size*2.5)+85)fi)/360pt#;
  56.  
  57. cap_stem#:=        % uppercase stem breadth
  58.     (if design_size < 10: ((design_size*design_size*2.5) -
  59.                            (design_size*17.5) + 215)
  60.                     else: ((design_size*15)+140)fi)/360pt#;
  61.  
  62. cap_curve#:=       % uppercase curve breadth
  63.     (if design_size <  8: ((design_size*25)+70)
  64.  elseif design_size <  9: ((design_size*30)+30)
  65.  elseif design_size < 10: ((design_size*40)-60)
  66.                     else: ((design_size*15)+190)fi)/360pt#;
  67.  
  68. cap_ess#:=         % breadth in middle of uppercase s
  69.     (if design_size <  9: (design_size*30)
  70.  elseif design_size < 10: ((design_size*40)-90)
  71.                     else: ((design_size*15)+160)fi)/360pt#;
  72.  
  73. jut#:=             % protrusion of lowercase serifs
  74.     (if design_size < 10: (design_size*30)
  75.                     else: ((design_size*25)+50)fi)/360pt#;
  76.  
  77. cap_jut#:=         % protrusion of uppercase serifs
  78.     (if design_size <  8: ((design_size*30)+30)
  79.  elseif design_size < 10: ((design_size*35)-10)
  80.                     else: ((design_size*20)+140)fi)/360pt#;
  81.  
  82. beak_jut#:=        % horizontal protrusion of beak serifs
  83.     (if design_size <  8: ((design_size*5)+39)
  84.  elseif design_size <  9: ((design_size*6)+31)
  85.  elseif design_size < 10: ((design_size*5)+40)
  86.                     else: ((design_size*7)+20)fi)/360pt#;
  87.  
  88. slant:=            % tilt ratio $(\Delta x/\Delta y)$
  89.                            0.25;
  90.  
  91. variant_g:=        % should an italic-style g be used?
  92.                           true;
  93.